This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

#### Install morpheus
# devtools::install_github('cmap/morpheus.R')
# Load morpheus
library(morpheus)
library(datasets)
data(mtcars)
head(mtcars)
# mpg cyl disp  hp drat    wt  qsec vs am gear carb
# Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
# Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
# Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
# Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
# Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
# Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1
morpheus(mtcars)

### cluster by correlation
### scalingMode = "fixed" makes it so that it doesn't automatically rescale colors by rows
# morpheus( mtcars,
#           distfun = function(x) as.dist(1 - cor(t(x), use = "pairwise.complete.obs")),
#           Rowv = T,
#           Colv = T,
#           dendrogram = "both",
#           colorScheme = list(scalingMode = "fixed",
#                              colors = list("blue", "white", "red"))
# )
#### example of shiny code
# output$myheatmap = renderMorpheus({
#   morpheus( mtcars,
#             distfun = function(x) as.dist(1 - cor(t(x), use = "pairwise.complete.obs")),
#             Rowv = T,
#             Colv = T,
#             dendrogram = "both",
#             colorScheme = list(scalingMode = "fixed", values = list(0,50,100),
#                                colors = list("blue", "white", "red") )
#   )
# })
# 
# morpheusOutput("myheatmap", height = "800px")

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBkZl9wcmludDogcGFnZWQKLS0tCgpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiAKClRyeSBleGVjdXRpbmcgdGhpcyBjaHVuayBieSBjbGlja2luZyB0aGUgKlJ1biogYnV0dG9uIHdpdGhpbiB0aGUgY2h1bmsgb3IgYnkgcGxhY2luZyB5b3VyIGN1cnNvciBpbnNpZGUgaXQgYW5kIHByZXNzaW5nICpDbWQrU2hpZnQrRW50ZXIqLiAKCmBgYHtyIGZpZy5oZWlnaHQ9NX0KIyMjIyBJbnN0YWxsIG1vcnBoZXVzCiMgZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCdjbWFwL21vcnBoZXVzLlInKQojIExvYWQgbW9ycGhldXMKbGlicmFyeShtb3JwaGV1cykKbGlicmFyeShkYXRhc2V0cykKCmRhdGEobXRjYXJzKQpoZWFkKG10Y2FycykKIyBtcGcgY3lsIGRpc3AgIGhwIGRyYXQgICAgd3QgIHFzZWMgdnMgYW0gZ2VhciBjYXJiCiMgTWF6ZGEgUlg0ICAgICAgICAgMjEuMCAgIDYgIDE2MCAxMTAgMy45MCAyLjYyMCAxNi40NiAgMCAgMSAgICA0ICAgIDQKIyBNYXpkYSBSWDQgV2FnICAgICAyMS4wICAgNiAgMTYwIDExMCAzLjkwIDIuODc1IDE3LjAyICAwICAxICAgIDQgICAgNAojIERhdHN1biA3MTAgICAgICAgIDIyLjggICA0ICAxMDggIDkzIDMuODUgMi4zMjAgMTguNjEgIDEgIDEgICAgNCAgICAxCiMgSG9ybmV0IDQgRHJpdmUgICAgMjEuNCAgIDYgIDI1OCAxMTAgMy4wOCAzLjIxNSAxOS40NCAgMSAgMCAgICAzICAgIDEKIyBIb3JuZXQgU3BvcnRhYm91dCAxOC43ICAgOCAgMzYwIDE3NSAzLjE1IDMuNDQwIDE3LjAyICAwICAwICAgIDMgICAgMgojIFZhbGlhbnQgICAgICAgICAgIDE4LjEgICA2ICAyMjUgMTA1IDIuNzYgMy40NjAgMjAuMjIgIDEgIDAgICAgMyAgICAxCgptb3JwaGV1cyhtdGNhcnMsIGhlaWdodCA9ICIzMDBweCIpCmBgYAoKQWRkIGEgbmV3IGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqSW5zZXJ0IENodW5rKiBidXR0b24gb24gdGhlIHRvb2xiYXIgb3IgYnkgcHJlc3NpbmcgKkNtZCtPcHRpb24rSSouCgpXaGVuIHlvdSBzYXZlIHRoZSBub3RlYm9vaywgYW4gSFRNTCBmaWxlIGNvbnRhaW5pbmcgdGhlIGNvZGUgYW5kIG91dHB1dCB3aWxsIGJlIHNhdmVkIGFsb25nc2lkZSBpdCAoY2xpY2sgdGhlICpQcmV2aWV3KiBidXR0b24gb3IgcHJlc3MgKkNtZCtTaGlmdCtLKiB0byBwcmV2aWV3IHRoZSBIVE1MIGZpbGUpLiAKClRoZSBwcmV2aWV3IHNob3dzIHlvdSBhIHJlbmRlcmVkIEhUTUwgY29weSBvZiB0aGUgY29udGVudHMgb2YgdGhlIGVkaXRvci4gQ29uc2VxdWVudGx5LCB1bmxpa2UgKktuaXQqLCAqUHJldmlldyogZG9lcyBub3QgcnVuIGFueSBSIGNvZGUgY2h1bmtzLiBJbnN0ZWFkLCB0aGUgb3V0cHV0IG9mIHRoZSBjaHVuayB3aGVuIGl0IHdhcyBsYXN0IHJ1biBpbiB0aGUgZWRpdG9yIGlzIGRpc3BsYXllZC4KCg==